home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 4 / The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO / clang / 3ctrls.zip / MENU.FRM < prev    next >
Text File  |  1993-07-21  |  6KB  |  186 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize me and see buttons size and elastic caption"
  5.    Height          =   4230
  6.    Left            =   105
  7.    LinkTopic       =   "Form2"
  8.    ScaleHeight     =   3765
  9.    ScaleWidth      =   6450
  10.    Top             =   1290
  11.    Width           =   6630
  12.    Begin VideoSoftElastic VSElastic1 
  13.       Align           =   5  'Fill Container
  14.       AutoSizeChildren=   0  'None
  15.       BackColor       =   &H00C0C0C0&
  16.       BevelInner      =   3  'Inset
  17.       BevelInnerWidth =   1
  18.       BevelOuter      =   1  'Raised
  19.       BevelOuterWidth =   2
  20.       BorderWidth     =   6
  21.       Caption         =   "Welcome to the VideoSoft Custom Control Library Demo"
  22.       CaptionPos      =   4  'Center Center
  23.       ChildSpacing    =   6
  24.       FloodColor      =   &H000000C0&
  25.       FloodDirection  =   0  'None
  26.       FloodPercent    =   0
  27.       FontBold        =   -1  'True
  28.       FontItalic      =   -1  'True
  29.       FontName        =   "Arial"
  30.       FontSize        =   18
  31.       FontStrikethru  =   0   'False
  32.       FontUnderline   =   0   'False
  33.       ForeColor       =   &H00000080&
  34.       Height          =   3240
  35.       Index           =   0
  36.       Left            =   0
  37.       Splitter        =   0  'No
  38.       TabIndex        =   4
  39.       Top             =   0
  40.       Width           =   3375
  41.    End
  42.    Begin VideoSoftElastic VSElastic1 
  43.       Align           =   4  'Align Right
  44.       AutoSizeChildren=   3  'Even Vertically
  45.       BackColor       =   &H00C0C0C0&
  46.       BevelInner      =   3  'Inset
  47.       BevelInnerWidth =   1
  48.       BevelOuter      =   1  'Raised
  49.       BevelOuterWidth =   2
  50.       BorderWidth     =   6
  51.       Caption         =   ""
  52.       CaptionPos      =   1  'Left Center
  53.       ChildSpacing    =   6
  54.       FloodColor      =   &H000000C0&
  55.       FloodDirection  =   0  'None
  56.       FloodPercent    =   0
  57.       Height          =   3240
  58.       Index           =   1
  59.       Left            =   3375
  60.       Splitter        =   0  'No
  61.       TabIndex        =   6
  62.       Top             =   0
  63.       Width           =   3075
  64.       Begin CommandButton Command1 
  65.          BackColor       =   &H00808080&
  66.          Caption         =   "Elastic - &Splitter bars"
  67.          Height          =   540
  68.          Index           =   0
  69.          Left            =   90
  70.          TabIndex        =   0
  71.          Top             =   720
  72.          Width           =   2895
  73.       End
  74.       Begin CommandButton Command1 
  75.          BackColor       =   &H00808080&
  76.          Caption         =   "Elastic - &Resizing/Flood"
  77.          Height          =   540
  78.          Index           =   1
  79.          Left            =   90
  80.          TabIndex        =   1
  81.          Top             =   1350
  82.          Width           =   2895
  83.       End
  84.       Begin CommandButton Command1 
  85.          BackColor       =   &H00808080&
  86.          Caption         =   "&IndexTab"
  87.          Height          =   540
  88.          Index           =   2
  89.          Left            =   90
  90.          TabIndex        =   2
  91.          Top             =   1980
  92.          Width           =   2895
  93.       End
  94.       Begin CommandButton Command1 
  95.          BackColor       =   &H00808080&
  96.          Caption         =   "&AWKsome"
  97.          Height          =   540
  98.          Index           =   3
  99.          Left            =   90
  100.          TabIndex        =   3
  101.          Top             =   2610
  102.          Width           =   2895
  103.       End
  104.       Begin VideoSoftElastic VSElastic2 
  105.          Align           =   0  'None
  106.          AutoSizeChildren=   0  'None
  107.          BackColor       =   &H00000000&
  108.          BevelInner      =   3  'Inset
  109.          BevelInnerWidth =   1
  110.          BevelOuter      =   2  'Raised Outlined
  111.          BevelOuterWidth =   2
  112.          BorderWidth     =   0
  113.          Caption         =   "Examples"
  114.          CaptionPos      =   4  'Center Center
  115.          ChildSpacing    =   6
  116.          FloodColor      =   &H000000C0&
  117.          FloodDirection  =   0  'None
  118.          FloodPercent    =   0
  119.          FontBold        =   -1  'True
  120.          FontItalic      =   -1  'True
  121.          FontName        =   "Arial"
  122.          FontSize        =   18
  123.          FontStrikethru  =   0   'False
  124.          FontUnderline   =   0   'False
  125.          ForeColor       =   &H0000FFFF&
  126.          Height          =   540
  127.          Left            =   90
  128.          Splitter        =   0  'No
  129.          TabIndex        =   7
  130.          Top             =   90
  131.          Width           =   2895
  132.       End
  133.    End
  134.    Begin VideoSoftElastic StatusBar 
  135.       Align           =   2  'Align Bottom
  136.       AutoSizeChildren=   2  'Uneven Horizontally
  137.       BackColor       =   &H00C0C0C0&
  138.       BevelInner      =   0  'None
  139.       BevelInnerWidth =   1
  140.       BevelOuter      =   2  'Raised Outlined
  141.       BevelOuterWidth =   2
  142.       BorderWidth     =   2
  143.       Caption         =   "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 547-7295"
  144.       CaptionPos      =   4  'Center Center
  145.       ChildSpacing    =   6
  146.       FloodColor      =   &H000000C0&
  147.       FloodDirection  =   0  'None
  148.       FloodPercent    =   0
  149.       FontBold        =   0   'False
  150.       FontItalic      =   0   'False
  151.       FontName        =   "MS Sans Serif"
  152.       FontSize        =   8.25
  153.       FontStrikethru  =   0   'False
  154.       FontUnderline   =   0   'False
  155.       ForeColor       =   &H00000000&
  156.       Height          =   525
  157.       Left            =   0
  158.       Splitter        =   0  'No
  159.       TabIndex        =   5
  160.       Top             =   3240
  161.       Width           =   6450
  162.    End
  163. End
  164. Option Explicit
  165.  
  166. Sub Command1_Click (Index As Integer)
  167.   mousepointer = 11
  168.   Select Case Index
  169.     Case 0
  170.       Splitter.Show 1
  171.     Case 1
  172.       fFlood.Show 1
  173.     Case 2
  174.       IndexTab.Show 1
  175.     Case 3
  176.       Awk.Show 1
  177.   End Select
  178.   mousepointer = 0
  179. End Sub
  180.  
  181. Sub Form_Resize ()
  182.   ' to wake up the elastic
  183.   StatusBar.Top = 0
  184. End Sub
  185.  
  186.